home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / TRACCY.for < prev    next >
Text File  |  1991-04-13  |  804b  |  29 lines
  1.         SUBROUTINE TRACCY(XMIN,XMAX,Y,NPTS)
  2.     IMPLICIT NONE
  3.     REAL*4 XMIN,XMAX
  4.     INTEGER NPTS
  5.         REAL*4 Y(NPTS)
  6. C
  7. C       THIS SUBROUTINE TRACES THE LINE FROM X(1),Y(1) TO
  8. C       X(NPTS),Y(NPTS) WITH APPROPIATE CLIPPING.
  9. C       USE THIS ROUTINE WHEN CLIPPING IS DESIRED AND THE
  10. C       INDEPENDANT VARIABLE IS IMPLIED BY THE SUBSCRIPT
  11. C       USING EQUAL INTERVALS FROM XMIN TO XMAX.
  12. C
  13.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  14. C
  15.         REAL*4 AREA(4),VX,VY,DX
  16.     INTEGER I
  17. C
  18.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  19.         CALL SCALE(XMIN,Y(1),VX,VY)
  20.         CALL GSMOVE(VX,VY)
  21. 10      DX = (XMAX-XMIN)/(NPTS-1)
  22.         DO 100 I=2,NPTS
  23.         CALL SCALE(XMIN+(I-1)*DX,Y(I),VX,VY)
  24.         CALL GSDRAW(VX,VY)
  25. 100     CONTINUE
  26.         CALL GSRCLP(AREA)
  27.         RETURN
  28.         END
  29.